Namespace BAL.Servicio
	Public Class PlanServicio
		Public Function Grabar(ByVal _Plan As BEL.Servicio.PlanServicio) As System.Boolean
			Dim _dal As New DAL.Servicio.PlanServicio
			If _Plan.EsNuevo Then
				Return _dal.Insertar(_Plan)
			Else
				Return _dal.Modificar(_Plan)
			End If
		End Function
		Public Function Listar(ByVal _Parametros As Object()) As DataTable
			Dim _dal As New DAL.Servicio.PlanServicio
			Return _dal.Listar(_Parametros)
		End Function
		Public Function Cargar(ByVal _Parametros As Object()) As BEL.Servicio.PlanServicio
			Dim _dal As New DAL.Servicio.PlanServicio
			Return _dal.Cargar(_Parametros)
		End Function
		Public Function Imprimir(ByVal _Parametros As Object()) As DataTable
			Dim _dal As New DAL.Servicio.PlanServicio
			Return _dal.Imprimir(_Parametros)
		End Function
        Public Function Existe(ByVal strAnio As String, ByVal strMes As String) As System.Boolean
            Dim _dal As New DAL.Servicio.PlanServicio
            Return _dal.Existe(strAnio, strMes)
        End Function
        Public Function Eliminar(ByVal intId As Int32) As System.Boolean
            Dim _dal As New DAL.Servicio.PlanServicio
            Return _dal.Eliminar(intId)
        End Function
	End Class
End Namespace